home *** CD-ROM | disk | FTP | other *** search
/ Basic Instinct 2 Press Kit / Basic Instinct 2 Press Kit.iso / pc / main.dxr / Internal_53_GalleryArrowCode.ls < prev    next >
Encoding:
Text File  |  2006-03-15  |  821 b   |  29 lines
  1. property spriteNum
  2. global gMaster
  3.  
  4. on mMoveGalleryRightOLD me
  5.   vMaxGalleryNum = gMaster.pPhotoList[gMaster.pPhotoList.count].pGalleryNumber
  6.   if (gMaster.pGalleryCount + 1) > vMaxGalleryNum then
  7.     gMaster.pGalleryCount = 1
  8.     vString = string(gMaster.pGalleryCount)
  9.     go(vString & "G")
  10.   else
  11.     gMaster.pGalleryCount = gMaster.pGalleryCount + 1
  12.     vString = string(gMaster.pGalleryCount)
  13.     go(#next)
  14.   end if
  15. end
  16.  
  17. on mMoveGalleryLeftOLD me
  18.   vMaxGalleryNum = gMaster.pPhotoList[gMaster.pPhotoList.count].pGalleryNumber
  19.   if (gMaster.pGalleryCount - 1) = 0 then
  20.     gMaster.pGalleryCount = vMaxGalleryNum
  21.     vString = string(gMaster.pGalleryCount)
  22.     go(vString & "G")
  23.   else
  24.     gMaster.pGalleryCount = gMaster.pGalleryCount - 1
  25.     vString = string(gMaster.pGalleryCount)
  26.     go(vString & "G")
  27.   end if
  28. end
  29.